home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 March / 1987-03.d64 / sprite demo.boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  558b  |  16 lines
  1. 10 poke53280,6:poke53281,6:poke646,7:printchr$(147)
  2. 20 printspc(5)"this program is a demo that is"
  3. 30 printspc(3)"included with the feature article"
  4. 40 printspc(2)chr$(34)"fundamentals of commodore graphics."chr$(34);
  5. 50 printspc(5)"please refer to the article before"
  6. 60 printspc(5)"attempting to use this program."
  7. 70 f$="sprite demo"
  8. 80 print"    press any key to run sprite demo[146]"
  9. 90 poke198,0:wait198,1:getdh$
  10. 100 poke53280,14:poke53281,14
  11. 105 print"[147]":printspc(9)"loading sprite demo"
  12. 110 print"[154]load";chr$(34);f$;chr$(34);",8"
  13. 120 a$=chr$(13)+"run[144]"+chr$(13)
  14. 130 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1
  15. 140 new
  16.